home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Tutorial Material / Basic Tutorial / mctest3 < prev    next >
Lisp/Scheme  |  1998-10-26  |  635b  |  30 lines
  1. ; tutorial example 3 -  mctest3
  2.  
  3. (setq symbols '(a b c d e f g))
  4.  
  5. (def-instrument-symbol
  6.   sax symbols
  7.   clarinet symbols
  8.   trumpet symbols
  9.   violin symbols
  10. )
  11.  
  12. (def-instrument-length
  13.   sax '((1/16 1/32 1/32 1/16))
  14.   clarinet '(1/32 1/16 1/32 1/16)
  15.   trumpet '(1/8 1/16)
  16.   violin '((1/16 -1/16))
  17. )
  18.  
  19. (setq tonals (activate-tonality (chromatic c 6) (blues1 c 5)))
  20.  
  21. (compile-song-p "ccl;output:" 1/4 "part3"
  22.  
  23. ;                   |---|---|---|---|
  24. changes  tonals    " .....       ..."
  25. sax      changes   "-  - -- - --- --"
  26. clarinet changes   " -  -- -- -- ---"
  27. trumpet  changes   "  -   -- -- -- -"
  28. violin   changes   "   -   --  -----"
  29. )
  30.